by Demian Net (14 Submissions)
Category: Internet/HTML
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: (6 Votes)
Just like it says: Get HTML Source From a Website!
'Load Richtx32.ocx
'Load msinet.ocx
'Make a RichTextBox1
'Make an Inet1
'Make a plain textbox names URL
'Make a command1
Private Sub Command1_Click()
On Error Resume Next
Dim txt As String
Dim b() As Byte
Command1.Enabled = False
b() = Inet1.OpenURL(URL.Text, 1)
txt = ""
For t = 0 To UBound(b) - 1
txt = txt + Chr(b(t))
Next
RichTextBox1.Text = txt
Command1.Enabled = True
Exit Sub
End Sub